home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MUI / DEFTII15.LHA / Deft II / Sources / Deft_II.em < prev    next >
Encoding:
Text File  |  1994-11-06  |  3.6 KB  |  177 lines
  1. OPT OSVERSION = 37
  2.  
  3.  
  4. ->*****
  5. ->** External modules
  6. ->*****
  7. MODULE 'locale'
  8. MODULE 'muimaster' , 'libraries/mui'
  9. MODULE 'tools/boopsi' , 'tools/installhook'
  10. MODULE 'icon'
  11.  
  12. MODULE '*Defs'
  13. MODULE '*GUI_MUIB'
  14. MODULE '*Locale'
  15. MODULE '*Errors'
  16. MODULE '*PrefsFile'
  17. MODULE '*DefaultTools'
  18. MODULE '*Arexx'
  19. MODULE '*GUI'
  20. MODULE '*Work'
  21.  
  22.  
  23. ->*****
  24. ->** Error handling
  25. ->*****
  26. RAISE    "MEM"    IF String()    = NIL
  27.  
  28.  
  29. ->*****
  30. ->** Global variables
  31. ->*****
  32. DEF deftII                    :    PTR TO obj_app
  33. DEF cat                        :    PTR TO catalog_DeftII
  34. DEF modified                :    LONG
  35. DEF current_edited_path        =    NO_CURRENT_EDITED_PATH
  36. DEF current_edited_def_tool    =    NO_CURRENT_EDITED_DEF_TOOL
  37.  
  38.  
  39. /******************/
  40. /* Main procedure */
  41. /******************/
  42. PROC main() HANDLE
  43.  
  44.     DEF running = TRUE , result_DoMethod , signal
  45.     DEF file_requester_active
  46.     DEF display : obj_display
  47.     DEF icon = NIL
  48.  
  49.     localebase := OpenLibrary( 'locale.library' , 0 )
  50.     NEW cat.create()
  51.     cat.open( NIL , NIL )
  52.  
  53.     IF ( muimasterbase := OpenLibrary( 'muimaster.library' , MUIMASTER_VMIN ) ) = NIL THEN Throw( "LIB" , "muim" )
  54.  
  55.     IF ( iconbase := OpenLibrary( 'icon.library' , 0 ) ) THEN icon := GetDiskObject( 'PROGDIR:Deft II' ) ELSE Throw( "LIB" , "icon" )
  56.  
  57.     installhook(    display.display_def_tool    ,    {display_def_tool}            )
  58.     installhook(    display.compare_def_tool    ,    {compare_def_tool}            )
  59.     installhook(    display.str_obj                ,    {open_new_def_tools_list}    )
  60.     installhook(    display.obj_str                ,    {close_new_def_tools_list}    )
  61.     IF NEW deftII.create( icon , init_arexx() , display ) = NIL THEN Throw( "MUI" , Mui_Error() )
  62.  
  63.     init_gui()
  64.     load_prefs()
  65.     init_def_tools()
  66.     init_go()
  67.  
  68.         -> Main loop
  69.     WHILE running
  70.  
  71.         result_DoMethod := domethod( deftII.app , [ MUIM_Application_Input , {signal} ] )
  72.         SELECT result_DoMethod
  73.  
  74.             CASE ID_BT_ABOUT
  75.  
  76.                 Mui_RequestA(    deftII.app , deftII.wi_main , NIL ,
  77.                                 cat.msg_About_DeftII.getstr() ,
  78.                                 cat.msg_OK.getstr() ,
  79.                                 cat.msg_About_Text.getstr() ,
  80.                                 NIL )
  81.  
  82.             CASE MUIV_Application_ReturnID_Quit
  83.  
  84.                 get( deftII.pa_path , MUIA_Popasl_Active , {file_requester_active} )
  85.  
  86.                 IF file_requester_active
  87.  
  88.                     deftII_error( cat.msg_File_Requester_Still_Opened.getstr() )
  89.  
  90.                 ELSE
  91.  
  92.                     IF modified
  93.  
  94.                         IF deftII_request( cat.msg_Really_Quit.getstr() ) = 1 THEN running := FALSE
  95.  
  96.                     ELSE
  97.  
  98.                         running := FALSE
  99.  
  100.                     ENDIF
  101.  
  102.                 ENDIF
  103.  
  104.         ENDSELECT
  105.  
  106.         IF ( signal AND running ) THEN Wait( signal )
  107.  
  108.     ENDWHILE
  109.  
  110.     deftII.dispose()
  111.     IF icon THEN FreeDiskObject( icon )
  112.     IF iconbase THEN CloseLibrary( iconbase )
  113.     CloseLibrary( muimasterbase )
  114.     cat.close()
  115.     IF localebase THEN CloseLibrary( localebase )
  116.  
  117. EXCEPT
  118.  
  119.     SELECT exception
  120.  
  121.         CASE "LIB"
  122.  
  123.             SELECT exceptioninfo
  124.  
  125.                 CASE "muim"
  126.  
  127.                     deftII_error_simple( cat.msg_Missing_Muimaster_Library.getstr() )
  128.  
  129.                 CASE "icon"
  130.  
  131.                     deftII_error_simple( cat.msg_Missing_Icon_Library.getstr() )
  132.  
  133.             ENDSELECT
  134.  
  135.         CASE "MEM"
  136.  
  137.             deftII_error( cat.msg_Not_Enough_Memory.getstr() )
  138.  
  139.         CASE "MUI"
  140.  
  141.             SELECT exceptioninfo
  142.  
  143.                 CASE MUIE_OutOfMemory
  144.  
  145.                     deftII_error_simple( cat.msg_Not_Enough_Memory.getstr() )
  146.  
  147.                 CASE MUIE_OutOfGfxMemory
  148.  
  149.                     deftII_error_simple( cat.msg_Not_Enough_Chip_Memory.getstr() )
  150.  
  151.                 CASE MUIE_MissingLibrary
  152.  
  153.                     deftII_error_simple( cat.msg_Missing_Library.getstr() )
  154.  
  155.                 CASE MUIE_NoARexx
  156.  
  157.                     deftII_error_simple( cat.msg_Arexx_Port.getstr() )
  158.  
  159.                 DEFAULT
  160.  
  161.                     deftII_error_simple( cat.msg_Internal_Problem.getstr() )
  162.  
  163.             ENDSELECT
  164.  
  165.     ENDSELECT
  166.  
  167.     IF deftII                 THEN deftII.dispose()
  168.     IF icon                    THEN FreeDiskObject( icon )
  169.     IF iconbase                THEN CloseLibrary( iconbase )
  170.     IF muimasterbase        THEN CloseLibrary( muimasterbase )
  171.     cat.close()
  172.     IF localebase            THEN CloseLibrary( localebase )
  173.  
  174.     CleanUp( 100 )
  175.  
  176. ENDPROC
  177.